************************************************************************ Data Analysis                                                    **** This will replicate all of the empirical models in ADW JOP       **** ---------------------------------------------------------------- **** ADW: Presidents, Policy Compromise and Legislative Success. JOP. **** June 2016                                                        **** Implemented for STATA 14                                         ************************************************************************* Set global system path (adjust this path to your own directory)*global systempath "foo"* this file uses by default the converged position estimates as produced by the authors* please see the R code as part of this replication package* please adapt if you want to use your own data hereuse "$systempath/data/output/ADW_JOP_Replication_Data.dta", clear**********Table 2***********Base modelsregress positionbz ideologyscore i.iso if preslast2 == 0, vce(robust)estimate store m1regress  D.positionbz D.ideologyscore i.iso   if preslast2 == 0, vce(robust)estimate store m2margins, at(D.ideologyscore=(-8(1)7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Dynamics, size(small)) legend(off) ///graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G11, replace*Initial Positionregress D.positionbz c.D.ideologyscore##c.L.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m3margins, at(D.ideologyscore=(-8(1)7) L.positionbz=(-2,0,1.7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Left vs Right, size(small)) legend(on order(1 "Left" 2 "Right" 3 "Center") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save GA, replace*Presidential Powerregress D.positionbz  c.D.ideologyscore##c.prespow2  i.iso if preslast2 == 0, vce(robust)estimate store m4margins, at(D.ideologyscore=(-8(1)7) prespow2=(.25,.8))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Power, size(small)) legend(on order(1 "Weak Power" 2 "High Power") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G5, replace*Presidential Approvalregress D.positionbz c.D.ideologyscore##c.presapproval i.iso if preslast2 == 0, vce(robust)estimate store m5margins, at(D.ideologyscore=(-8(1)7) presapproval=(10,75))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Approval, size(small)) legend(on order(1 "Low Approval" 2 "High Approval") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G6, replace*Spendingregress D.positionbz c.D.ideologyscore##c.centralspend i.iso if preslast2 == 0, vce(robust)estimate store m6margins, at(D.ideologyscore=(-8(1)7)centralspend=(3,20))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Central Expenditure, size(small)) legend(on order(1 "Low Spend" 2 "High Spend") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G7, replace*Honeymoonregress D.positionbz c.D.ideologyscore##i.honeymoon i.iso if preslast2 == 0, vce(robust)estimate store m21margins, at(D.ideologyscore=(-8(1)7)honeymoon=(0,1))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Honeymoon, size(small)) legend(on order(1 "No Honeymoon" 2 "Honeymoon") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G8, replace***********Figure 2***********graph combine "G5" "G6" "G7" "G8"graph save Figure2, replace***********Figure 3***********regress D.positionbz c.D.ideologyscore##i.singlemaj1 i.iso if preslast2 == 0 ,vce(robust)estimate store m7margins, at(D.ideologyscore=(-8(1)6) singlemaj1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Majority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G1, replaceregress D.positionbz c.D.ideologyscore##i.majcoal1 i.iso if preslast2 == 0, vce(robust)estimate store m8margins, at(D.ideologyscore=(-8(1)6) majcoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Majority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G2, replaceregress D.positionbz c.D.ideologyscore##i.mincoal1  i.iso if preslast2 == 0, vce(robust)estimate store m9margins, at(D.ideologyscore=(-8(1)6) mincoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Minority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G3, replaceregress D.positionbz c.D.ideologyscore##i.singlemin1 i.iso if preslast2 == 0, vce(robust)estimate store m10margins, at(D.ideologyscore=(-8(1)6) singlemin1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Minority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G4, replacegraph combine  "G2" "G3" "G4", row(1)graph save Figure3, replaceesttab m1 m2 m3 m4 m5 m6 m21 using "$systempath/output/tables/Models1.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceesttab m8 m9 m10 using "$systempath/output/tables/Models2.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear**********Table 3**********regress exlaexb distmove i.iso if preslast2 ==0, vce(robust)estimates store m1regress exlaexb distmove prespow2 centralspend honeymoon presapproval i.iso if preslast2 ==0, vce(robust)estimates store m2regress exlaexb distmove i.pres if preslast2 ==0, vce(robust)estimates store m3regress exlaexb distmove prespow2 centralspend honeymoon presapproval i.pres if preslast2 ==0, vce(robust)estimates store m4regress legsuccmerce distmove i.iso if preslast2 ==0, vce(robust)estimates store m5regress legsuccmerce distmove prespow2 centralspend honeymoon  presapproval i.iso if preslast2 ==0, vce(robust)estimates store m6regress legsuccmerce distmove i.pres if preslast2 ==0, vce(robust)estimates store m7regress legsuccmerce distmove prespow2 centralspend honeymoon presapproval i.pres if preslast2 ==0, vce(robust)estimates store m8esttab m1 m2 m3 m4 m5 m6 m7 m8 using "$systempath/output/tables/Models3.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear***********Appendix************The following commands will replicate the analyses that can be found in the online appendix*Models with Decree authority*Presidential Powerregress D.positionbz  c.D.ideologyscore##i.decree   i.iso if preslast2 == 0, vce(robust)margins, at(D.ideologyscore=(-8(1)7) decree=(0,1))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Power, size(small)) legend(on order(1 "No Decree Power" 2 "Decree Power") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save decree, replace*M0dels not controlling for preslast*Basic Relationship between medianparty and executive positionregress positionbz ideologyscore i.iso , vce(robust)estimate store m1regress  D.positionbz D.ideologyscore i.iso  , vce(robust)estimate store m2margins, at(D.ideologyscore=(-8(1)7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Dynamics, size(small)) legend(off) ///graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G11, replace*What about initial position - hwo does this condition the effect?regress D.positionbz c.D.ideologyscore##c.L.positionbz i.iso , vce(robust)estimate store m3margins, at(D.ideologyscore=(-8(1)7) L.positionbz=(-2,0,1.7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Left vs Right, size(small)) legend(on order(1 "Left" 2 "Right" 3 "Center") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save GA, replace*Presidential Powerregress D.positionbz  c.D.ideologyscore##c.prespow2  i.iso , vce(robust)estimate store m4margins, at(D.ideologyscore=(-8(1)7) prespow2=(.25,.8))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Power, size(small)) legend(on order(1 "Weak Power" 2 "High Power") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G5, replace*Presidential Approvalregress D.positionbz c.D.ideologyscore##c.presapproval i.iso , vce(robust)estimate store m5margins, at(D.ideologyscore=(-8(1)7) presapproval=(10,75))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Approval, size(small)) legend(on order(1 "Low Approval" 2 "High Approval") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G6, replace*Spendingregress D.positionbz c.D.ideologyscore##c.centralspend i.iso , vce(robust)estimate store m6margins, at(D.ideologyscore=(-8(1)7)centralspend=(3,20))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Central Expenditure, size(small)) legend(on order(1 "Low Spend" 2 "High Spend") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G7, replace*Honeymoonregress D.positionbz c.D.ideologyscore##i.honeymoon i.iso , vce(robust)estimate store m21margins, at(D.ideologyscore=(-8(1)7)honeymoon=(0,1))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Honeymoon, size(small)) legend(on order(1 "No Honeymoon" 2 "Honeymoon") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G8, replace*Now for Interaction Effects by Party Typeregress D.positionbz c.D.ideologyscore##i.singlemaj1 i.iso  ,vce(robust)estimate store m7margins, at(D.ideologyscore=(-8(1)6) singlemaj1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Majority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G1, replaceregress D.positionbz c.D.ideologyscore##i.majcoal1 i.iso , vce(robust)estimate store m8margins, at(D.ideologyscore=(-8(1)6) majcoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Majority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G2, replaceregress D.positionbz c.D.ideologyscore##i.mincoal1  i.iso , vce(robust)estimate store m9margins, at(D.ideologyscore=(-8(1)6) mincoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Minority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G3, replaceregress D.positionbz c.D.ideologyscore##i.singlemin1 i.iso , vce(robust)estimate store m10margins, at(D.ideologyscore=(-8(1)6) singlemin1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Minority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G4, replace  **** graph combine  "G1" "G2" "G3" "G4" graph save Results2nopres, replace graph combine "G5" "G6" "G7" "G8" graph save Results1nopres, replace graph combine "G11" "GA" graph save ideology2, replace esttab m1 m2 m3 m4 m5 m6 m21 using "$systempath/output/tables/Models1nopres.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replace esttab m7 m8 m9 m10 using "$systempath/output/tables/Models2nopres.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replace*Now for legislative successregress exlaexb distmove i.iso , vce(robust)estimates store m1regress exlaexb distmove prespow2 centralspend honeymoon presapproval i.iso , vce(robust)estimates store m2regress exlaexb distmove i.pres , vce(robust)estimates store m3regress exlaexb distmove prespow2 centralspend honeymoon presapproval i.pres , vce(robust)estimates store m4esttab m1 m2 m3 m4  using "$systempath/output/tables/Models3nopres.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear********************Now for split sample models modelsgen power = 0 if prespow2 < .476replace power = 1 if prespow2 >.475replace power = . if prespow2 == .*Maj coalregress D.positionbz c.D.ideologyscore##i.majcoal1 i.iso if preslast2 == 0 & power == 0, vce(robust)estimate store m1margins, at(D.ideologyscore=(-8(1)6) majcoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Majority Coalition - Low Power, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G20, replaceregress D.positionbz c.D.ideologyscore##i.majcoal1 i.iso if preslast2 == 0 & power == 1, vce(robust)estimate store m2margins, at(D.ideologyscore=(-8(1)6) majcoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Majority Coalition - High Power, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G21, replace*Min Coalregress D.positionbz c.D.ideologyscore##i.mincoal1  i.iso if preslast2 == 0 & power == 0, vce(robust)estimate store m3margins, at(D.ideologyscore=(-8(1)6) mincoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Minority Coalition - Low Power, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G22, replace regress D.positionbz c.D.ideologyscore##i.mincoal1  i.iso if preslast2 == 0 & power == 1, vce(robust)estimate store m4margins, at(D.ideologyscore=(-8(1)6) mincoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Minority Coalition - High Power, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G23, replace*Single Minregress D.positionbz c.D.ideologyscore##i.singlemin1 i.iso if preslast2 == 0 & power == 0, vce(robust)estimate store m5margins, at(D.ideologyscore=(-8(1)6) singlemin1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Minority - Low Power, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G24, replace regress D.positionbz c.D.ideologyscore##i.singlemin1 i.iso if preslast2 == 0 & power == 1, vce(robust)estimate store m6margins, at(D.ideologyscore=(-8(1)6) singlemin1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Minority - High Power, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G25, replace graph combine "G20" "G22" "G24" "G21" "G23" "G25" graph save splitsample, replace esttab m1 m2 m3 m4 m5 m6 using "$systempath/output/tables/Splitsample.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear**********Models Without GTM, PRY, VEN or ARG*Basic Relationship between medianparty and executive positionregress positionbz ideologyscore i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0, vce(robust)estimate store m1regress  D.positionbz D.ideologyscore i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0 , vce(robust)estimate store m2margins, at(D.ideologyscore=(-8(1)7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Dynamics, size(small)) legend(off) ///graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G11, replace*What about initial position - hwo does this condition the effect?regress D.positionbz c.D.ideologyscore##c.L.positionbz i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0 , vce(robust)estimate store m3margins, at(D.ideologyscore=(-8(1)7) L.positionbz=(-2,0,1.7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Left vs Right, size(small)) legend(on order(1 "Left" 2 "Right" 3 "Center") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save GA, replace*Presidential Powerregress D.positionbz  c.D.ideologyscore##c.prespow2  i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0 , vce(robust)estimate store m4margins, at(D.ideologyscore=(-8(1)7) prespow2=(.25,.8))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Power, size(small)) legend(on order(1 "Weak Power" 2 "High Power") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G5, replace*Presidential Approvalregress D.positionbz c.D.ideologyscore##c.presapproval i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0, vce(robust)estimate store m5margins, at(D.ideologyscore=(-8(1)7) presapproval=(10,75))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Approval, size(small)) legend(on order(1 "Low Approval" 2 "High Approval") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G6, replace*Spendingregress D.positionbz c.D.ideologyscore##c.centralspend i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0, vce(robust)estimate store m6margins, at(D.ideologyscore=(-8(1)7)centralspend=(3,20))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Central Expenditure, size(small)) legend(on order(1 "Low Spend" 2 "High Spend") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G7, replace*Honeymoonregress D.positionbz c.D.ideologyscore##i.honeymoon i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0, vce(robust)estimate store m21margins, at(D.ideologyscore=(-8(1)7)honeymoon=(0,1))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Honeymoon, size(small)) legend(on order(1 "No Honeymoon" 2 "Honeymoon") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G8, replace*Now for Interaction Effects by Party Typeregress D.positionbz c.D.ideologyscore##i.singlemaj1 i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0,vce(robust)estimate store m7margins, at(D.ideologyscore=(-8(1)6) singlemaj1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Majority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G1, replaceregress D.positionbz c.D.ideologyscore##i.majcoal1 i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0, vce(robust)estimate store m8margins, at(D.ideologyscore=(-8(1)6) majcoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Majority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G2, replaceregress D.positionbz c.D.ideologyscore##i.mincoal1  i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0, vce(robust)estimate store m9margins, at(D.ideologyscore=(-8(1)6) mincoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Minority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G3, replaceregress D.positionbz c.D.ideologyscore##i.singlemin1 i.iso if iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 == 0, vce(robust)estimate store m10margins, at(D.ideologyscore=(-8(1)6) singlemin1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Minority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G4, replace  **** graph combine  "G2" "G3" "G4" , row(1) graph save Results2dropcoun, replace graph combine "G11" "GA" "G5" "G6" "G7" "G8" graph save Results1dropcoun, replace esttab m1 m2 m3 m4 m5 m6 m21 using "$systempath/output/tables/Models1dropcoun.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replace esttab m7 m8 m9 m10 using "$systempath/output/tables/Models2dropcoun.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear*Legislative successregress exlaexb distmove i.iso if  iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 ==0, vce(robust)estimates store m1regress exlaexb distmove i.pres if  iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 ==0, vce(robust)estimates store m2regress legsuccmerce distmove i.iso if  iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 ==0, vce(robust)estimates store m3regress legsuccmerce distmove i.pres if  iso ~= 7 & iso ~= 10 & iso~= 13 & iso~=1 & preslast2 ==0, vce(robust)estimates store m4 esttab m1 m2 m3 using "$systempath/output/tables/Models3dropcoun.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear*Now run with limited sample from Pres Approval Onlyregress D.positionbz c.D.ideologyscore##c.presapproval i.iso if preslast2 == 0, vce(robust)regress positionbz ideologyscore i.iso if e(sample) & preslast2 == 0, vce(robust)estimates store m1regress  D.positionbz D.ideologyscore i.iso  if e(sample) & preslast2 == 0, vce(robust)estimates store m2margins, at(D.ideologyscore=(-8(1)7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Dynamics, size(small)) legend(off) ///graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save g1 , replace*What about initial position - hwo does this condition the effect?regress D.positionbz c.D.ideologyscore##c.L.positionbz i.iso if e(sample) & preslast2 == 0, vce(robust)margins, at(D.ideologyscore=(-8(1)7) L.positionbz=(-2,0,1.7))estimates store m3marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Left vs Right, size(small)) legend(on order(1 "Left" 2 "Right" 3 "Center") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save g2, replace*Presidential Powerregress D.positionbz  c.D.ideologyscore##c.prespow2  i.iso if e(sample) & preslast2 == 0, vce(robust)margins, at(D.ideologyscore=(-8(1)7) prespow2=(.25,.8))estimates store m4marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Presidential Power, size(small)) legend(on order(1 "Weak Power" 2 "High Power") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save g3, replaceregress D.positionbz c.D.ideologyscore##c.centralspend i.iso if e(sample) & preslast2 == 0, vce(robust)estimates store m5margins, at(D.ideologyscore=(-8(1)7)centralspend=(3,20))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Central Expenditure, size(small)) legend(on order(1 "Low Spend" 2 "High Spend") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save g4 , replace*Honeymoonregress D.positionbz c.D.ideologyscore##i.honeymoon i.iso if e(sample) & preslast2 == 0, vce(robust)estimates store m6margins, at(D.ideologyscore=(-8(1)7)honeymoon=(0,1))marginsplot,  recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts( lwidth(none)) ///ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Honeymoon, size(small)) legend(on order(1 "No Honeymoon" 2 "Honeymoon") cols(2) ///size(vsmall) nobox region(lcolor(none))) graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save g5, replace esttab m1 m2 m3 m4 m5 m6 using "$systempath/output/tables/limitedsample.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replace graph combine  "g1" "g2" "g3" "g4" "g5" graph save limitedsample1 , replace ********Now for Interaction Effects by Party Typeregress D.positionbz c.D.ideologyscore##i.singlemaj1 i.iso if e(sample) & preslast2 == 0 ,vce(robust)estimate store m7margins, at(D.ideologyscore=(-8(1)6) singlemaj1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Majority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G1, replaceregress D.positionbz c.D.ideologyscore##i.majcoal1 i.iso if e(sample) & preslast2 == 0, vce(robust)estimate store m8margins, at(D.ideologyscore=(-8(1)6) majcoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Majority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G2, replaceregress D.positionbz c.D.ideologyscore##i.mincoal1  i.iso if e(sample) & preslast2 == 0, vce(robust)estimate store m9margins, at(D.ideologyscore=(-8(1)6) mincoal1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Minority Coalition, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G3, replaceregress D.positionbz c.D.ideologyscore##i.singlemin1 i.iso if e(sample) & preslast2 == 0, vce(robust)estimate store m10margins, at(D.ideologyscore=(-8(1)6) singlemin1=(1))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Change in Executive Position) ///ytitle(, size(vsmall)) yscale(noextend nofextend) yline(0, lpattern(longdash) noextend) ylabel(-4(1)4, labsize(vsmall)) ///xtitle(Change in Median Party) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(, labsize(vsmall)) ///title(Single Party Minority, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none)) graph save G4, replace  esttab m7 m8 m9 m10 using "$systempath/output/tables/limitedsample2.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replace graph combine  "G2" "G3" "G4" , row(1)  graph save limitedsample2 ,  replaceestimates clear*Legilsative Sucess with Limited Sampleregress exlaexb distmove i.iso if e(sample) & preslast2 == 0, vce(robust)estimates store m1regress exlaexb distmove i.pres if e(sample) & preslast2 == 0, vce(robust)estimates store m2regress legsuccmerce distmove i.iso if e(sample) & preslast2 == 0, vce(robust)estimates store m3regress legsuccmerce distmove i.pres if e(sample) & preslast2 == 0, vce(robust)estimates store m4  esttab m1 m2 m3 m4 using "$systempath/output/tables/limitedsample3.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replace*With Year and Country FEregress D.positionbz D.ideologyscore i.iso i.year if preslast2 == 0, vce(robust)estimate store m1regress D.positionbz c.D.ideologyscore##c.L.positionbz  i.iso i.year if preslast2 == 0, vce(robust)estimate store m2regress D.positionbz c.D.ideologyscore##c.prespow2  i.iso i.year if preslast2 == 0, vce(robust)estimate store m3regress D.positionbz c.D.ideologyscore##c.presapproval i.iso i.year if preslast2 == 0, vce(robust)estimate store m4regress D.positionbz c.D.ideologyscore##c.centralspend  i.iso i.year if preslast2 == 0, vce(robust)estimate store m5regress D.positionbz c.D.ideologyscore##i.honeymoon  i.iso i.year if preslast2 == 0, vce(robust)estimate store m10regress D.positionbz c.D.ideologyscore##i.singlemaj1  i.iso i.year if preslast2 == 0, vce(robust)estimate store m6regress D.positionbz c.D.ideologyscore##i.majcoal1 i.iso i.year if preslast2 == 0, vce(robust)estimate store m7regress D.positionbz c.D.ideologyscore##i.mincoal1  i.iso i.year if preslast2 == 0, vce(robust)estimate store m8regress D.positionbz c.D.ideologyscore##i.singlemin1  i.iso i.year if preslast2 == 0, vce(robust)estimate store m9esttab m1 m2 m3 m4 m5 m10 m6 m7 m8 m9 using "$systempath/output/tables/withyearFE.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear*With LDVregress D.positionbz D.ideologyscore L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m1regress D.positionbz c.D.ideologyscore##c.L.positionbz L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m2regress D.positionbz c.D.ideologyscore##c.prespow2 L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m3regress D.positionbz c.D.ideologyscore##c.presapproval L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m4regress D.positionbz c.D.ideologyscore##c.centralspend L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m5regress D.positionbz c.D.ideologyscore##i.honeymoon L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m10regress D.positionbz c.D.ideologyscore##i.singlemaj1 L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m6regress D.positionbz c.D.ideologyscore##i.majcoal1 L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m7regress D.positionbz c.D.ideologyscore##i.mincoal1 L.D.positionbz  i.iso if preslast2 == 0, vce(robust)estimate store m8regress D.positionbz c.D.ideologyscore##i.singlemin1 L.D.positionbz i.iso if preslast2 == 0, vce(robust)estimate store m9esttab m1 m2 m3 m4 m5 m10 m6 m7 m8 m9 using "$systempath/output/tables/withLDV.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear*With economic controlsregress D.positionbz D.ideologyscore gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m1regress D.positionbz c.D.ideologyscore##c.L.positionbz gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m2regress D.positionbz c.D.ideologyscore##c.prespow2 gdpgrowth lninflation imf trade totaldebtservice  i.iso if preslast2 == 0, vce(robust)estimate store m3regress D.positionbz c.D.ideologyscore##c.presapproval gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m4regress D.positionbz c.D.ideologyscore##c.centralspend gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m5regress D.positionbz c.D.ideologyscore##i.honeymoon gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m6esttab m1 m2 m3 m4 m5 m6 using "$systempath/output/tables/econcontrolsA.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clearregress D.positionbz c.D.ideologyscore##i.singlemaj1 gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m1regress D.positionbz c.D.ideologyscore##i.majcoal1 gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m2regress D.positionbz c.D.ideologyscore##i.mincoal1 gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m3regress D.positionbz c.D.ideologyscore##i.singlemin1 gdpgrowth lninflation imf trade totaldebtservice i.iso if preslast2 == 0, vce(robust)estimate store m4esttab m1 m2 m3 m4 using "$systempath/output/tables/econcontrolsB.tex", ///star(* 0.05 ** 0.01) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear*Using Decree Datagen lndecree =ln(decrees)regress absmovebz decrees i.iso if preslast2 == 0estimates store m1margins, at(decrees=(1(200)900))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Absolute Presidential Movement) ///ytitle(, size(vsmall)) yscale(noextend nofextend) ylabel(0(.25)1.5, labsize(vsmall)) ///xtitle(Number of Decrees) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(0(50)800, labsize(vsmall)) ///title(Decrees and Absolute Movement, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G1, replaceregress absmovebz lndecree i.iso if preslast2 == 0,estimates store m2margins, at(lndecree=(0(1)7))marginsplot, recast(scatter) plotopts(mcolor(none) msize(small)) recastci(rarea) ciopts(fcolor(gs9) lcolor(gs13) lwidth(none)) /// ytitle(Absolute Presidential Movement) ///ytitle(, size(vsmall)) yscale(noextend nofextend) ylabel(0(.25)3, labsize(vsmall)) ///xtitle(Number of Decrees) xtitle(, size(vsmall)) xscale(noextend nofextend) xlabel(0(1)7, labsize(vsmall)) ///title(Decrees and Absolute Movement, size(small)) legend(off) /// graphregion(lcolor(none) lwidth(none) ifcolor(none) ilcolor(none)) ///plotregion(lcolor(none) lwidth(none) ilcolor(none) ilwidth(none))graph save G2, replaceesttab m1 m2 using "$systempath/output/tables/decrees.tex", ///star(* 0.1 ** 0.05) cells(b(star fmt(3)) se(par fmt(2))) r2 replaceestimates clear*Predicting Social Spendingregress totalspendcepal positionbz i.isoregress totalspendcepal positionbz i.iso if preslast2 == 0regress educationcepal positionbz i.isoregress healthcepal positionbz i.iso*****END********